home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / math / menu.bas < prev    next >
BASIC Source File  |  1995-01-31  |  891b  |  22 lines
  1. 10 CLS
  2. 20 KEY 1,"1":KEY 2,"2":KEY 3,"3":KEY 4,"4":KEY 5,"5":KEY 6,"6":KEY 7,"7":KEY 8,"8":KEY 9,"9"
  3. 30 FOR I=4 TO 7 STEP 1
  4. 40 SYMBOL (50,50),"数学お助けソフト",4,4,7-I,,,3
  5. 50 NEXT I
  6. 60 SYMBOL (100,50),"数学お助けソフト",3,3,7,,,3
  7. 70 SYMBOL (5,260),"ＰＦ2･･･因数分解   ＰＦ3･･･y=f(x)のｸﾞﾗﾌ",2,2,7,,,1
  8. 80 SYMBOL (5,310),"ＰＦ4･･･二次方程式 ＰＦ5･･･連立方程式",2,2,7,,,1
  9. 90 SYMBOL (5,360),"ＰＦ6･･･GCM・LCM   ＰＦ7･･･素因数分解",2,2,7,,,1
  10. 95 SYMBOL (5,410),"ＰＦ8･･･素数       ＰＦ9･･･約数",2,2,7,,,1
  11. 100 SYMBOL (70,170),"入力＝？",3,3,5,,,1
  12. 110 Q$=INKEY$ : IF Q$="" THEN 110
  13. 120 IF Q$="2" THEN RUN "INSU.BAS"
  14. 130 IF Q$="3" THEN RUN "GURAFU.BAS"
  15. 140 IF Q$="4" THEN RUN "NIJIHO.BAS"
  16. 150 IF Q$="5" THEN RUN "RENRITU.BAS"
  17. 160 IF Q$="6" THEN RUN "G_LCM.BAS"
  18. 170 IF Q$="7" THEN RUN "SOINSU.BAS"
  19. 172 IF Q$="8" THEN RUN "SOSU.BAS"
  20. 176 IF Q$="9" THEN RUN "YAKUSU.BAS"
  21. 180 GOTO 110
  22.